home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_02_01 / 2n01046b < prev    next >
Encoding:
Text File  |  1990-11-12  |  168 b   |  12 lines
  1.  
  2.  
  3.  
  4. {*
  5.  * return true if c is a digit; otherwise return false.
  6.  *}
  7. function isdigit(c : char) : boolean;
  8.     begin
  9.     isdigit := ('0' <= c) and (c <= '9');
  10.     end;
  11.  
  12.